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LABEL OOOOQOOOQOOOPRINTEROOI7S098CC EX UBVECT/READSFILE SUURCEFILESSYMBUL/SYSUISKS ENDS OBVECT /READ 
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BEGIN *SYSTEM DISK MAKER FUR EXTENDED DATACOMM 00001000 
COMMENTS * TITLE’ B5500/B65700 MARK ALN ee see * 00001110 e 
an * 9121! 16 GS Re ee oe ee 
* THIS MATERIAL [S$ PROPRIETARY TO Teuencuans CORPORATION * 000014112 : 
* AND IS NOT TO BE REPROOUCED> USED» OR DISCLOSED * 00001113 1@ 
Ponca tot * ! 3 E : aw OOOO a 2 
* WRITTEN AUTHORIZATION OF THE PATENT DIVISION UF * 00001115 4 
* BURROUGhS CORPORATION» DETROIT» MICHIGAN 48232 “ 00001116 |@ 
* Wi ote OOO OWI Ae oes oe 6 
* COPYRIGHT (C) 1971 » 1972 BURROUGHS CURPORATION * 00001118 4 j 
* —AA320206 - AA386657 ws 00001319 /@ 
) NE SYSDISKRLeS¢s JTocSoos2ee SCHEDs/ 3 WXs M = Fe a re ares $ 
ARRAY ALOZSYSDISKRL I »SaVEalOi2551-B8(0810); 00003000 10 
BOOLEAN NOSTATIONS»+NOGU»NOERRS» SCHEDLINES 00004000 1@ 
NTEGER LMAX*TNAQGCNTs Tp SOL QOBUFFe STACOUNTS omar OD QOU SOOO 6.650 hoe ee a 
FILE CARD €1s10s300)3 00006000 
FILE DISK DISK SERIAL £12256] "SYSTEM" "DYSK"™ CosSYSDISKRL» 30> 00007000 J1@ 
SAVE OO) 8 Fo ee tnt ie ee ts _ 90008000 etd ne Ninjas aes ‘5 
FILE PRNT 1011033 00009000 ‘9 
LABEL EOF +AWAY3 00010000 7@ 
A REAM PROCEDURE SCANCQ)$ POO PICO Otago deoren cena seat a Oro a Nees cee Ni Oy! "9 
BEGIN LABEL L3 00012000 "9 
S1t=B3 00013000 1@ 
Hy Scat teSl4¢13 Notte a Si ae es apts Pe ne Rect cts nen i eae ee 2y 
IF SCS"L" THEN TALLY?=1 ELSE 00015000 2 
IF Sc3"S" THEN TALLY?=23 009016000 21 @ 
Steet OWN TALE Se ae ae Tog a eee 0011601 2c oc Re Ree Rl ae 24 
ENDS : 00018000 2 
% 00019000 21 @ 
PROCEDURE ERROR(A: VALUE Mi INTEGER ui __________agaoooa__ ae ere toe ae acta Ree 2 
BEGIN FORMAT FC//)» F16/)3 00021000 26 
SWITCH FORMAT FMTS3= 00022000 23@ 
(" BUFFER SIZE ERROR"), 00023000 0 i 
Cw WARNING? NO STATION CARDS FOR PREVIOUS LINE CARD")» 00024000 y 
C* TU/BUFF OUT OF ORDER" )» 00025000 | @ 
(" SCHEDULE LINE DECLARED Our OF ORDER"), 00026000 | ee ee 
C* WARNING! NAKMAX TOO LARGE» SET TO 7%)» 00027000 
(* ILLEGAL ADDRESS CHARACTER"), 00028000 af @ 
(" MORE THAN ONE STATION ON NON@MULTIPOINT LINEN), 00029000 is : ae 
(" TOO MANY STATIONS ON THIS LINE"), 00030000 37 
(" (STATION TYPE INCOMPATIBLE WITH LINE DISCIPLINE")3 00031000 4@ 
IF NOERRS THEN 00032000 
BEGIN WRITECPRNToF)s 00033000 a0 
WRITECPRNT»10sBC4#))3 00034000 «|@ 
WRITECPRNT»F1)3 00035000 | A 
END} 00036000 ane | co 
WRITECPRNT sFHTSCABS(ND 325 00037000 «@ 
NOGOt8NOGO OR N GEO 02°. 009038000 45 
NOERRSS=FALSES 00939000 6 
END3 00040000 | @) 
‘ O0Q041 000 " 
PROCEDURE NOSTAS3 00042000 4s 
BEGIN REAL ‘OUMs . 00043000 1 @ 
MUMIsAL- 3231) eT HEN ALOlJiSO 000 G00 ; =. . 5y 
ELSE IF DUMZSCHED THEN ERROR(#1)3 00045000 6 
WRITECDISKsSYSUISKRL*AL*))3 00046000 «1 @ 
LMAXS=LMAX413 00047000, 5 
ENDS . 00048000 : : . gos 65 
00049000 og 7 |@ 
PROCEOUR cw 00050000 oe 5 
eo eo 


Data Documents/Inc. 


BEGIN REAL DUMsTUsBUFFs BUFSIZE» PNGPNGs ALTYPs LINEDIS» DIRECTS 00051000 
LABEL SETUPS 00052000 @ 
NOERR = H 00053000 eleeetn ae Se ER eI fer 
1 STACOUNT!2@3 00054000 
2 IF NOSTATIONS THEN NOSTASS 00055000 
é fe . ‘ 
: IF LINEDIS=SCHED THEN 00057000 
BEGIN IF NOT SCHEDLINE THEN ERROR(3)3 00058000 
6 *s23 NOOO9IONO Bas tap es io as 
; Go TO SETUP} 00060000 
8 END} ee . 00061000 
—___BUFSIZEitmIF RUFSIZF228 THEN O FLSEO UCC BANOO 
No IF BUFSIZE#56 THEN 1 ELSE 00063000 
er IF BUFSIZE2112 THEN 00064000 
Ki pte aegee AD 12 eo ____IF BOOLEANCPNGPNG) THEN BUFSIZE ELSE 2 ELSE BUFSIZE3 00065900  _ 
y IF BUFSIZE LSS 0 OR BUFSIZE GTR 2 THEN ERROR(O)3 00066000 
Ta IF OLDBUFF GE@ OLDBUFFI=BUFFeTUC4OS44¢4) THEN ERRORC2)3 00067000 
ns _ SCHEDLINE? =F ALSE3 ee eee 
he SETUPS? = AL 4] RORDIRECTC 224733 J@LINEVIS( 324583 1R0UFSIZELO%46$2] 00069000 
e” BPNGRNG(S&8a721ISTUCIP4 AS GIKBLEF CL 4s a4s q4RADTYP[ 18% 4622)4 00070000 
has tn NUS TNS 8 OOF 00 0 ot oe ee 
9 END3 00072000 
@” % | 00073000 
’ PROCEDURE NEWSTATIONS 74 EE Ee 
R2 BEGIN REAL Bene ee ee ee nen reese eR RERN EON 00075000 
e” 00076000 
oe a forme SpebINE: Wag SupuUEANeNleaga ea -NOMSROOLEANGCOostipe"~— = _ Cpanee tens, BM oI at oN gota ess eer igen ea a 
; BOOLEAN STREAM PROCEDURE BADADDRESS(CHAR)s 00078000 
@ * BEGIN LOCAL A»B3 00079000 
a7 D{[ tate BJ OSt=LIT"""s OSti0 T™*48$485PQT>" 00080000 ..sidsdsrs—sd“sidsd—sz—crét 
pe OltaDl"113 00081000 
Op SIt=CHAR$ SJ%=SI+73 00082000 
zi HEN BRE N\ A t=13 M NO 00083000 teat oeu ee aoe 
- ELSE SlasSim4)3 00084000 
@ BADADORESS#=TALLY3 00085000 
Nd ; OO ROOD Se a eee ORT ECR 
NOERRS?3TRUE} 00087000 
e READC BEL #]5/» DUM» TYPEsLINELENGTH*LINEP AGE*NAKMAX*ADDR1IsADDR2» 00088000 
NEQ1» ) 00089000 Fao Oe 
IF NAKMAX GTR 7 THEN 00090000 
@ BEGIN NAKMAXS=73 . 00091000 
ERROR (433 00092000 a 
ENDS 00093000 
@ IF (OUMSSAC4).0 383) )=TWX TREN IF TYPE TWX THEN ERROR( 8) ELSE 00094000 
S 
IF DUM#SCHED THEN 00096000 
ss) BEGIN IF TYPESTWX THEN ERRORC ADS , : 90097000 
nee BADADDRESSCADOR AND NOT N@1) OR (BADADORESS( ADDRe. 00098000 
AND (N@1 EQV NQ@2)) THEN ERRUR(5)3 00099000 
@ IF LINEPAGE#ZO THEN LINEPAGES ©LINEPAGE@=23 00400000 
4 ND OOLOLO 
ALO)? BNEQZANEGI[ 461473 1 1 RADDR2140842%6 }RADORIC3414216) 00102000 
@; SL INECENGTNIZOTAOSOIRL INEPAGET 20082401 ENAKMAX CITI ABT 3) 00103000 
OHOi1G4OoCd 
i IF NOSTATIONS THEN 00105000 
O; BEGIN NOSTATIONSt™FALSES 00106000 
PL NR I u K VTOKRL 2 AL» ONOL07000 pes es 
55). ; LMANEVL HANTS hg 00108000 
@ END ELSE. | | 00109000 
R NUMZMUL TIPOINT THEN. FRBOR i ee OOLLO0N0 
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IF (STACOUNTI=STACOUNT#1) = IF ALG),06%2]50 THEN 3 ELSE 7 THEN 00111000 
ERROR(7) _ELSE 00112000 e 
cs 234 AES 116 Y 0 fe ieeemas seat ehene trae cca EEE ACA DT SS ae 
IF LINEPAGESG OR TYPESTCSOO THEN. TNAGGCNT# eTNAGGCNT #43 00114000 
END; 00115000 | 1@ 
paca a tn pena gS en oP as eet tte OPT ROO Os Oe tt — 3 
SCHEDLINE$=TRUES 00117000 ‘ 
NOSTATIONS! £NOGO#SFALSES 00118000 |@ 
PsHCL0)t=—43 ve Pale ete ts ae oe te OOF 19000 Se ee 6 
ACL I8@AL2}PaAL 3 ISO} | | 00120000 ? 
WRITECDISK#SYSDISKRLs AL #273 00121000 /@ 
DO esses Se bby Soe ye a, 
D0 READCCARD>10»BL*])LEOF) UNTIL (St=SCAN(BL*])) #03 00123000 10 
IF BOOLEAN(S) THEN NEWLINE ELSE NEWSTATION; 00124000 @ 
ND a f ee ee ee SP Re ‘ alias nie ce ce be a ANS 8 ee Ae. 12 
EOFs | ne ee 00126000 a 
CLOSECCARD)3 | 00127000 @ 
NOSTATIONS THEN NOSTAS3 | goizs000. ii 8 
IF NOGO THEN BEGIN CLOSECDISK»PURGE)$ GO AWAY Enos 00129000 re 
IF I GE@ 0 THEN 00130000 |@ 
B N AL4]2=05 eet ae EH CE SEC 15 E0101 0 ante enact eee ete ene ea ony eae "i 
FOR St#0 STEP 1 UNTIL I DO | : 00132000 ‘9 
BEGIN ALOJSSSAVEALSI3 00133000 od @ 
__WRITECDISK*+SYSDISKRLZAL#))S ————s—s—“‘“*C™C‘tiQ QQ | 2 
END ENDS 00135000 23 
REWIND(DISK)3 00136000 23 @ 
Si MSS ak tas ln AE is 0 ad ee BIST OO Oi ish dena ne ae he Sas 24 
ALG) $@LMAX&(LMAX+141)[32?4038)&TNAOGCNTL 24 24018)3 00138000 : 2 
WRITE CDISKs SYSDISKRLe Alu] 3 00139000 rj @ 
OCK( DISK 3 a et ee OP AO O00 a a oo I 
AWAY: 00141000 ie 
END, 00142000 1 
END3ENDe sss LAST CARD ON OCRDING TAPE ——“‘(C™C~C*iéSIID 20) 
31 
sol @ 
ee tnt nthe 7 sol ahd oat! 3: 
3 @ 
tesa Meth ee jas aoa ane me 37) 
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ee tn anton enn etter nn 40) 
. 41 & 
42 
4: 
* 44 @ 
q 
47 @ 
: 
s| @ 
51 
= 5 
sd @ 
peas ele pining leat et cre aes 54 
55) 
& 


Data Documents/inc. 


ono nsw mom OF FF WH = 


= 
Dn 


LABEL OOOQOOOOOPRINTEROG1I75098CC EX UBVECT/READJFILE SOURCEFILE=SYMBOUL/SYSOISKJENDE 


OBYECT 


7READ 


